﻿Public Class CityClass
    Public cityID As String
    Public Resources As New List(Of Integer)
    Public maxRes As Integer
    Public recruitSpeed As Integer
    Public queueID1 As Integer
    Public queueID2 As Integer
    Public recruitCount As Integer


    Public Sub New(ByVal cityID As String)
        Me.cityID = cityID
        'Resources(3) = 0
        'Resources(2) = 0
        'Resources(1) = 0
        'Resources(0) = 0
    End Sub

    Public Function getWood() As Integer
        Return Resources(3)
    End Function
    Public Function getStone() As Integer
        Return Resources(2)
    End Function
    Public Function getIron() As Integer
        Return Resources(1)
    End Function
    Public Function getWheat() As Integer
        Return Resources(0)
    End Function
    Public Sub setWood(ByVal wood As Integer)
        Resources(3) = wood
    End Sub
    Public Sub setStone(ByVal stone As Integer)
        Resources(2) = stone
    End Sub
    Public Sub setIron(ByVal iron As Integer)
        Resources(1) = iron
    End Sub
    Public Sub setWheat(ByVal wheat As Integer)
        Resources(0) = wheat
    End Sub

    Function getMaxResourcesNeeded() As Integer
        Dim maxValue As Integer = 0

        For i = 0 To Resources.Count - 1
            If maxValue < Resources(i) Then
                maxValue = Resources(i)
            End If
        Next
        Return maxValue
    End Function


End Class
